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-Sep- PASRIL eS ASEO OF? B32;1 


MODULE PASSEOF 2 A ett ITLE o lpayire if end-of-file' 
xe 


! File: PASEOF2.B32 Edit: SBL1001 
BEGIN 


LRA RARER AERA AAA RARER RAE AAA AERA ATER TATA TATRA eee 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
an 
5 ‘e 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE  * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
it OTHER PERSON, NO TITLE TO AND OWNERSHIP OF” THE SOFTWARE 1S” HEREBY = 
ie TRANSFERRED. * 
® 
it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. * 
® 
* 
® 
® 
® 
* 


is DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILIT 
IS NOT SUPPLIED BY DIGITAL. 


H 
Lee E AAA 


'¢¢ 
! FACILITY: Pascal Language Support 


ABSTRACT: 
This procedure implements the Pascal EOF procedure. It 
is not called directly from compiled code, but rather can 
be passed as a procedure by users. 

i ENVIRONMENT: User mode - AST reentrant 

i AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

{ MODIFIED BY: 


| toe - Original. SBL 1-April-1981 
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es is i as is as 8 es a a ss es ks a a a ss a a ss 2 DOOD 
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1 
eclarations 1 
RSBTTL ‘Declarations’ 
! PROLOGUE DEFINITIONS: 


4 
=1984 01:31:04  VAX11 BLiss-32 v4.0-742 
opr oke $3i81:98 «| FAMSAT Obhes age Mes 95 gSe, 


PASSEOF 2 
| 
0 


Inqu 
Decl 
: 4 tb | 
; rk 1 
- | 
; f fs : REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
: 55 7 1! 
H 56 18 1 ! TABLE OF CONTENTS: 
; ef 19 1! 
; 8 , 4 
3 59 1 1 FORWARD ROUTINE 
5 4 § : PASSEOF 2; ! Inquire if end-of-file 
3 6¢ 0124 1! 
3 6 0125 1 ! MACROS: 
; 0126 1! 
3 . st ! } NONE 
3 0 $3 1 ! EQUATED SYMBOLS: 
; 0130 1! 
5 0131 1! NONE 
; 0 35 1! 
: 0 ; 1 ! FIELDS: 
3 0134 1! 
3 0135 1! NONE 
3 0136 1! 
3 0137 1 ! OWN STORAGE: 
3 0138 1! 
3 0139 1! NONE 
3 0140 1! 


PAS 
Tat 
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1-001 PASSEOF2 - Inquire if end-of-file 127808- 1382 93:34:98 PASRTL.SRCIPASEOF2.B3251 - (3) | 
80 XSBTTL 'PASSEOF2 - Inguire if end-of-file' 
1 GLOBAL ROUTINE PASSEOF2 ( ! Inquire if end-of-file 
¢ a. PFV: REF SPASSPFV_FILE_VARIABLE ! File variable 
4 
i '++ 
6 FUNCTIONAL DESCRIPTION: 
88 i This procedure returns a boolean value TRUE if the given file 
4 is at end-of-file, FALSE otherwise. 
31 i CALLING SEQUENCE: 
$8 Eof.wv.v = PASSEOF2 (PFV.mr.r) 
95 i FORMAL PARAMETERS: 
97 PFV - The Pascal File Variable (PFV) passed by reference. 
a8 The structure of the PFV is defined in PASPFV.REQ. 
90 i IMPLICIT INPUTS: 
0 
0 
0 
0 
NONE 
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i ROUTINE VALUE: 


Boolean TRUE (1) if file is at end-of-file. 
Boolean FALSE (0) if file is not at end-of-file. 


i SIDE EFFECTS: 
Resolves any lazy lookahead in progress, possibly opening the file. 
i SIGNALLED ERRORS: 


! 
1 
i 
1 
1 
i] 
! 
4 
i] 
] 
1 
1 
' 
' 
1 
' 
IMPLICIT OUTPUTS: 
i] 
1 
' 
i] 
' 
i] 
i] 
' 
' 
' 
| 
' 
1 
FILNOTOPE - file not open 
1 


BEGIN 


LOCAL 
FCB: REF $PAS$,CB_CONTROL_BLOCK,! Control block 
ULT, ' Function result 
PFV_ADDR: Oe itt 


' Enable argument 
UNWIND_ACT: VOLAT 


| 

| 

| 

} 

| 

NONE 
| 

(Ee; ! Enable argument | 
NABLE | 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT); 

'¢ | 
Set the enable argument for the PFV address. | 


a et ee ee a ee ee eee et ae ee dB a 8 od oo od od oo od dd dd 
WOOO OO DO O00 00 09 09 09 00 00 09 09 0 SI NIN NNN SD DOD TTT BS 
NOONE WN 0 OD NOAUE WD 3 9 OONOAUE WIN (OOO NOA UE WWN SO OWONOAUES WN) OVOONOUS Wr 
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mee ee em ce ee ee em ek ee eed ed = od = od od = oo oo od ow od 
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| 
PFV_ADDR = PFV CPFVSR_PFV]; | 
r | 
Validate and lock the PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 


1+ 
Set unwind action to unlock file. 


UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 
‘4 


; Call PAS$$LOOK_AHEAD to resolve lazy lookahead. 


PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


+ 
Verify that file is open. 


WN OODONAOUES WP OOONOUE WI O0OO~) 


| 
| 
| 
| 
j 
| 
IF NOT .PFV CPFVSV_VALIDI | 
| 
| 
| 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
COOOSOOCOOSOOSOOSOOCOSOOSOOSSOSOCSOSCOCOOCOOCOCOOSOOOOOOCOOOCOOOOOOOOOO CV 
PIMIPINININIMPINYINYNYIPSAINPYINIPYDINIAIPYPI PINYIN NINN PUNINYIPINPINPYIPUPIPIPINPIPININPINIPYNYINININ 


MEW O ODNAUES WN 0 OODNAUES WIN $0 OONOAOU EWN OC ODNOULS WN —OOMW 


BBE EE FANNIN AWI AIP NINININININIDD 2 2 OO OS MHOOOOCOOOOCOCOONO 


Se Se Se Se Ge Se Se Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Ge Ge Ge Ge Se Se Se Se Se Ge Ge Se ee 
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¢ IF NOT .PFV CPFV$V_OPEN) ! Not open 

6 SPASSIO_ERROR (PAS$_FILNOTOPE,0); 

8 + 

H } Determine if EOF 

: ! 

g RESULT = NOT .PFV CPFV$V_DFBI; | 
4 '¢ 

5 ! Unlock file and return. J 

$ Indicate successful completion 

i ! 

y FCB CFCBSL_STATUS) = 0; 

! PFV CPFV$V~LOCK) = 0; | 
¢ RETURN .RESULT; 
) END; ! End of routine PASSEOF2 


-TITLE PASSEOF2 Inquire if end-of-file 
SIDENT \1-001\ 

-EXTRN PASSEOF2 PAS$$10_HANDLER 
ERY BISEEMIOGIE 

*EXTRN PASSSETCNKL PAS$K_F ILNOTOPE 


at 
PASSEOF 2 Inquire if end-of-file 1s Sep 
100k PASSEOF2 - Inquire if end-of-file 14-Sep 


Se ee Be Be ee 


50 


Routine Size: 115 


0 td ed a ed 


Name 
_PASSCODE 


ooes 0000 
5E 04 C¢ ei 
7E D4 it 
04 AE D4 00007 
6D 0045 CF ODE Sapa 
56 04 AC DO QOO0F 
04 AE 56 D0 BRO 8 
000000006 00 16 0001 
E 01 4 8818 
6 06 A6 ‘ 0020 
000000006 9 6 00024 
OF 07 Ab 05 €0 O002A 1$: 
7E 04 Oe 
7E 00G 8F 9A 00031 
000000006 00 98 FB 00035 
12 11 Q003C 
06 A6 01 01 EF QOO3E 2$: 
50 50 D2 00044 
D4 A? D4 00047 
07 Ab 80 8F BA QO04A 
04 0004F 
50 D4 00050 3$: 
04 0006 
0000 00053 4$: 
50 08 aC DO 00055 
50 04 AO DO 00059 
F8 AO 9F 0005D 
FC AO 9F 00060 
02 DD 00063 
5E DD 00065 
7E 04 AC 7D 00067 
00000000G 00 03 FB 00068 
04 00072 
bytes, Routine Base: _PASS$CODE + 0000 
1 
1 !<BLF/PAGE> 
: END : 
0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 


115 NOVEC,NOWRT, RD, EXE, SHR, 


1:04 AX-11 Bliss-32 V4.0-742 
93334) 5 YPASRTL’ SRCIPASEOF?. B32;1 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
-ENTRY he | le Save R2,R3,R6,R7 


SUBL2 

CLRL -UNWIND_ACT 

CLRL = PE -ADBR 

MOVAL 43, “(FP 

MOVL ‘ 

MOVL 

JSB Rb PF ADDR PFV 
MOVL #1, UNWIND_ACT 


BLBS 6(R6), 1$ ~ 
JSB PAS$$LOOK_AHEAD 
BBS #5 a (R6)> 2$ 


CLRL 0s = (§P 
MOVZBL pPassK FILNOTOPE, -(SP) 
CALLS #2, PASS$SIGNA 

BRB 38 

EXTZV , 6(R6), RESULT 
MCOML Regut RESULT 

CLRL. -44(FCB) 

BICB2 7128, 7(R6) 

RET 

CLRL =. RO 

RET 

«WORD Save nothing 

MOVL  BC(AP), RO 

MOVL  4(RO); RO 

PUSHAB UNWIND ACT 

PUSHAB PFV_ADBR 

PUSHL #2 

PUSHL SP 


AP), =(SP) 
CALLS #3, PAS$$10_HANDLER 


End of module PAS$EOF 2 


LCL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


ouSceuse Symbols ococesee Pages Processing 

File Total Loaded Percent Mapped Time 
$255$DUA fy ~L32;1 977 0 581 0:01.0 
33 Baye Hes tiei 32;1 639 99 21 3 Bo bore 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASEOF 2/0BJ=OBJ$:PASEOF2 MSRC$:PASEOF 2/UPDATE=(ENH$: PASEOF 2) 
Size: 115 code + 0 data bytes 
8 00:04.5 
Elapsed Time: OP gle 
Lines/CPU Min: 3333 
oma Aad andes 9320 


Y Used: 64 pages 
— ation Complete 
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